function Fakt_Rek(N: Positive) return Positive is
begin
   if N/=1 then
      return Fakt_Rek(N-1)*N;
   else return 1;
end Fakt_Rek;
